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I.  Introduction 
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- -  ■ 

'  This  report  details  the  equipment,  formats,  and  procedures  developed  for 
recording  and  displaying  HF  propagation  data  produced  by  the  AN/TRQ-35  RCS-AB 
oblique-incidence  sounder  receiver.  The  information  is  being  published  in  this 
form  because  of  numerous  requests  regarding  a  means  for  using  the  large  volume 
of  sounder  data  accumulated  by  NRL  in  the  course  of  its  ionospheric  effects 
studies.  These  techniques  may  ultimately  be  incorporated  in  a  proposed  world¬ 
wide  data  base  of  ionospheric  data. 

The  AN/TRQ-35  sounder  equipment  is  available  to  all  branches  of  the  DoD 
and  is  widely  used  for  near-real-time  HF  frequency  management.  The  data  it 
produces,  if  properly  recorded  and  stored,  can  also  be  used  for  numerous  other 
purposes  related  to  studies  of  ionospheric  structure  and  HF  skywave 
communications.  These  include  studies  of  the  electron  density  versus  height 
profile  of  the  ionosphere;  of  forecasts  of  propagation  conditions  relevant  to  HF 
communications;  of  the  geographical  and  temporal  limitations  of  sounder  data 
application;  and  of  the  effectiveness  of  frequency  management  techniques. 
Permanent  records  of  ionospheric  propagation  have  also  proved  valuable  in 
evaluating  tests  of  HF  devices  which  are  dependent  on  ionospheric  propagation, 
such  as  communications  transmitters  and  receivers,  or  direction  finding 
equipment. _  ^ 

\  ^ i  ; 

The  recording  equipment  described  here  was  developed  to  record  the  data 
efficiently  and  to  make  its  retrieval  easy.  Once  set  up,  the  recording 
equipment  requires  a  minimum  of  operator  attention,  since  the  data  need  be 
transferred  to  tape  only  once  per  day.  The  sounder  data,  in  the  form  of 
ionograms,  are  stored  in  a  compact  form:  four  day’s  worth  of  data  from  one 
sounder  receiver  can  be  stored  on  a  l/A”  magnetic  tape  cartridge  of  dimensions 
153mm  x  102mm  x  17mm.  The  system  records  the  amplitudes  of  the  HF  signals 
received,  so  the  ionogram  can  be  later  reconstructed  with  various  discrimination 
levels.  With  such  post-processing  it  is  sometimes  possible  to  detect 
propagating  modes  not  otherwise  apparent. 


II.  Data  Taken  from  the  Sounder  Receiver 

Figure  1  shows  a  jihotograph  of  botli  the  original  CRT  display  from  a 
sounder  receiver  and  the  ionogram  data  after  being  digitized,  recorded,  and 
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displayed  with  the  equipment  described  in  this  report.  The  main  part  of  the 
display  shows  the  relative  propagation  delay  times  (over  a  0-5  msec  range)  of  HF 
signals  as  a  function  of  frequency  (over  a  2-30  MHz  range).  Above  the  main 
display  is  a  display  of  the  receiver’s  AGC  voltage,  which  is  a  measure  of  the 
amplitude  of  the  strongest  (in  the  range  -120  to  -65  dBm)  mode. 

The  sounder  signals  relevant  to  data  recording  are  listed  in  Table  1. 
Although  the  signals  are  developed  inside  the  receiver  in  digital  form,  most  of 
them  are  externally  accessible  only  as  analog  voltages.  The  propagation  delay 
time  data  are  presented  as  a  sequence  of  279  60-msec  voltage  sweeps,  each 
corresponding  to  a  specific  frequency,  which  arrive  at  1-second  intervals.  In 
each  of  these  0-60  msec  time  intervals  the  analog  voltage  represents  the 
variation  in  the  RF  signal  strength  over  relative  propagation  delay  times  of  0-5 
msec.  The  beginning  of  ionogram  data  output  is  signalled  by  a  TTL  trigger  pulse 
(labelled  "SA  Sync")  which  goes  low  at  the  beginning  of  the  ionogram  and  stays 
low  until  the  279th  sweep  has  been  delivered.  The  onset  of  each  sweep  is 
announced  by  another  TTL  trigger  pulse  (designated  "SRS").  The  Jth  sweep 
characterizes  propagation  at  the  frequency 

f  [Mhz]  =  1.95  +  0.1  J  . 

The  voltage  (0-5  volts)  of  each  sweep  is  sampled  at  200  points  within  the  60- 
msec  interval,  so  that  the  Ith  sample  corresponds  to  the  time  delay 

t  [msec]  =  0.025  I. 

The  300-microsecond  sampling  interval  was  chosen  to  be  somewhat  less  than  the 
time  constant  of  the  output  electronics. 

The  time-delay  information  is  thus  contained  in  279  x  200  =  55800  voltage 
samples,  each  of  which  represents  the  HF  signal  amplitude  for  a  unique 
combination  of  frequency  and  propagation  time  delay.  On  the  CRT,  each  of  the 
279  sweeps  corresponds  to  a  vertical  line  at  the  appropriate  frequency,  parts  of 
which  are  illuminated  whenever  the  signal  amplitude  exceeds  a  threshold  value. 
When  the  digitized  data  are  used  to  recreate  an  ionogram,  a  279  x  200  pixel 
array  is  created  and  each  pixel  I,J  for  which  the  corresponding  amplitude 
exceeds  the  threshold  amount  is  illuminated.  Most  of  the  storage  space  is  used 
to  store  these  amplitude  values. 

The  AGC  signal  is  also  presented  externally  as  an  analog  voltage.  This 
voltage  is  sampled  279  times  during  each  ionogram,  one  measurement  immediately 
following  each  60-millisecond  sweep. 

In  addition,  three  TTL  logic  outputs  from  the  receiver  indicate  which  one 
of  the  three  paths  for  which  the  sounder  can  be  set  up  is  being  sounded. 

III.  Recording  Instrumentation 

The  electronic  equipment  used  in  the  data  recording  system  is  listed  in 
Table  II  and  illustrated  in  the  block  diagram  of  Figure  2.  The  last  item,  a  3- 
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1/2"  Flexible  Disc  Drive,  is  included  in  Table  I  because  some  means  is  required 
initially  to  load  the  Operating  System  and  the  ADC  Interface  Software  into  the 
computer.  In  typical  use  this  software  is  usually  also  stored  on  both  the  fixed 
disc  and  on  the  cartridge  tape,  so  that  the  flexible  disc  drive  is  not  required. 

The  electrical  connections  between  the  components  are  illustrated  in 
Figure  3.  The  circuitry  required  to  electrically  isolate  the  SA  Sync  pulses, 
which  come  once  per  second  during  the  279-second  ionogram  recording  period,  is 
diagrammed  in  Figure  4.  This  circuitry  also  generates  an  addition  TTL  signal 
(called  EPCON) ,  which  starts  with  each  SA  sync  pulse  but  lasts  for  about  450 
msec,  to  maintain  the  A/D  converter  in  an  enabled  state  until  all  of  the 
required  signals  have  been  digic.'  d. 


IV.  Computer  Programming  Details 

Data  collection  is  controlled  by  the  BASIC  computer  program  CHIRP4,  a 
listing  for  which  is  given  in  Appendix  A.  In  normal  use,  the  data  collection 
system  computer  is  configured  with  a  memory  of  1.6  Mbytes,  of  which 
approximately  1.0  Mbytes  are  used  to  store  the  HP  BASIC  4.0  System  with  all  of 
its  Drivers  and  Language  Extensions.  (Some  space  could  be  saved  by  omitting 
some  of  the  unneeded  Drivers  and  Language  Extensions.)  The  CHIRP4  program 
requires  about  300  Kbytes.  A  considerable  amount  of  effort  has  been  expended  to 
make  the  program  user-friendly.  Prompts  have  been  built  in  to  explain 
information  to  be  entered  by  the  user. 

Each  ionogram  recorded  by  the  system  is  given  a  name  corresponding  to  the 
nominal  time  (Zulu)  at  which  that  ionogram  started.  For  example,  the  ionogram 
02FE881215  was  collected  starting  1215Z  on  2  February  1988.  Nominal  times  are 
all  integral  multiples  of  5  minutes,  corrsponding  to  the  twelve  sounder  time 
slots  each  hour. 

While  running,  the  CHIRP4  program  requires  the  following  fixed  disc  files: 


File  N  ame 


File  Type 


Size 


ICNOGRAMS  BOAT 
PATHDATA  BDAT 
GRAMGRID  BDAT 


16,645,600 

5,000 

51,200 


Any  of  these  files  may,  but  need  not,  exist  when  the  program  is  started.  If  the 
program  requires  one  of  these  files  and  it  doesn’t  exist,  it  will  create  the 
file . 


The  ICNOGRAMS  file  stores  the  data  for  up  to  291  ionograms,  in  the  format 
described  in  Tables  III,  IV,  and  V.  The  data  in  each  ionogram  is  stored  in  143 
records,  each  of  400  bytes  length.  Since  each  amplitude  sample  from  the 
ionogram.  data  refiuires  only  a  single  byte  of  miemory,  two  samples  have  been 
compacted  into  each  Z-byte  computer  (integer)  word. 


The  PATHDATA  file  is  a  small  file  which  stores  the  names,  start  time 
delays,  and  operating  segments  for  the  three  paths  currently  being  sounded. 

Vfhen  sounder  paths  on  the  RCS-4B  receiver  are  changed,  this  file  should  be 
updated  with  the  CHANGE  PATHS  function,  which  will  prompt  the  operator  to  enter 
the  new  path  information.  If  the  PATHDATA  file  does  not  exist  when  the  program 
is  started,  the  file  will  be  created  and  default- loaded  with  data  for  three 
paths  commonly  used  at  NRL. 

The  GRAMGRID  file  contains  graphics  data  with  which  the  ionogram  grid  and 
labels  can  be  displayed  on  the  CRT  with  a  simple  GLOAD  command,  rather  than 
being  produced  in  a  long  series  of  PLOT  and  LABEL  sequences.  While  the  saving 
in  time  is  only  about  two  seconds,  this  amount  of  time  can  be  critical  if  the 
paths  chosen  require  that  one  ionogram  be  started  very  soon  after  the  previous 
one  is  concluded.  When  the  RECORDing  or  DISPLAYing  function  is  started,  the 
program  attempts  to  find  the  graphics  data  in  RAM  memory;  if  not  found  there,  i 
goes  to  the  fixed-disc  memory;  and  failing  that,  the  grid  and  labels  are 
generated  with  the  subprogram  Plot_grid.  If  the  grid  data  must  be  generated,  a 
GRAMGRID  file  is  created  and  the  grid  data  stored  there. 

For  some  purposes  it  is  useful  to  compile  the  program  with  the  BASIC  4.0 
Compiler  produced  by  lEM,  Inc.,  P.  0  Box  8915,  Fort  Collins,  CO  80525.  The 
compiled  version  is  of  no  advantage  when  recording  data,  but  can  reduce  the  tim 
required  to  DISPLAY  and  produce  hard  copies  of  a  series  of  ionograms  by  about 
302. 


V.  OPERATING  PROCEDURES 

With  the  equipment  indicated  in  Figure  2,  data  collection  is  controlled  b 
RUNning  the  program  CHIRP4.  A  listing  of  this  program  appears  in  Appendix  1. 
Most  operations  are  initiated  by  "softkeys",  the  labels  for  which  appear  on  the 
CRT  and  form  the  MENU  for  the  user.  Data  collection  and  storage  are 
accomplished  by  the  following  functions: 

RECORD  function:  Data  collection  is  started  by  pressing  the  softkey 
corresponding  to  RECORD  on  the  MENU.  The  user  is  first  presented  with  the 
current  time  on  the  computer  clock  and  the  three  path  descriptions  with  which 
the  program  will  label  the  ionograms  from  the  three  sounder  paths.  Since 
accurate  time  and  path  information  are  essential  to  the  integrity  of  th-’  data, 
the  user  is  requested  to  verify  the  correctness  of  this  inf ormat ion .  The 
program  waits  for  the  start  of  the  next  ionogram  and  then  records  it  and  all 
following  ionograms  until  RECORDing  is  stopped  with  the  QUIT  softkev.  Up  to  dc 
ionograms,  equal  to  the  full  sounder  output  for  slightly  over  24  hours,  can  he 
stored  in  the  IONOGRAMS  file,  after  which  the  data  must  be  transferred  to 
magnetic  tape  for  permanent  storage.  The  operator  may  also  stop  the  program 
with  a  PAUSE  or  RESET  computer  command.  When  data  RECORDing  is  again  started, 
the  computer  remembers  the  previously  recorded  ionograms.  Thus,  if  the  cpm.nute 
records  20  ionograms  and  then  is  stopped,  it  will  start  recording  ionogram. 
number  21  when  RECORDING  is  again  started.  If  the  comjniter  is  stoned  in  the 
middle  of  an  ionogram,  the  fractional  ionogram  is  not  retained  in  storage. 
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DISPLAY  Function:  This  softkey  function  displays  any  ionogram  whose  data  exist 
on  the  hard  disc.  The  operator  is  prompted  for  the  name  of  a  single  ionogram, 
or  for  a  list  of  ionograms  to  be  displayed.  When  a  series  of  ionograms  is 
selected,  the  operator  may  choose  which  paths  shall  be  chosen.  Hard  copies  are 
automatically  produced,  two  per  page.  The  computer  requires  about  110  seconds 
to  display  an  entire  ionogram. 

Transfer  of  Data  to  1/4"  Cartridge  Tape  function:  The  fixed-disc  file  IONOGRAMS 
holds  291  ionograms,  just  over  24  hours  worth.  Approximately  once  per  day  the 
data  must  be  transferred  to  tape  for  permanent  storage  and  the  hard  disc  purged 
so  that  more  data  can  be  stored.  The  data  can  be  transferred  to  tape  when  less 
than  291  ionograms  have  been  recorded,  but  the  amount  of  cartridge  tape  used  is 
not  reduced  because  the  IONOGRAMS  file  has  to  be  created  with  a  fixed  length.  A 
cartridge  can  contain  four  transferred  files,  which  are  typically  named 
lONOGRAMSl,  I0N0GRAMS2.  I0N0GRAMS3,  and  I0N0GRAMS4.  This  procedure  is  done 
manually,  rather  than  with  a  softkey: 

1.  Stop  the  computer  with  the  QUIT  softkey  function; 

2.  Insert  tape  cartridge  into  the  HP7942  drive.  The  unit  will  perform 
houskeeping  tasks  for  about  two  minutes  before  being  ready  for  data  transfer; 

3.  Transfer  data  with  the  command: 

COPY  "IONOGRAMS"  TO  " lONOGRAMSl : 7942 , 1402 , 1 "  [RETURN] 

(Instead  of  lONOGRAMSl,  use  I0N0GRAMS2,  I0N0GRAMS3,  or  I0N0GRAMS4  respectively 
to  transfer  the  2nd,  3rd,  and  4th  loads  of  ionograms  to  the  tape.)  Transfer 
takes  about  15  minutes.  If  you  want  to  verify  that  the  data  have  been 
transferred,  or  are  uncertrain  about  how  many  files  have  been  transferred  to  the 
tape,  you  can  get  a  catalog  of  files  recorded  on  the  tape  with  the  command 

CAT  ": 7942, 1402,1"  [RETURN) 

4.  If  a  list  the  the  transferred  ionograms  is  desired,  press  the  LIST  GRAMS 
key . 

5.  PURGE  data  from  the  fixed  disc. 


LIST  GRAMS  Function:  This  soft  key  function  produces  a  CRT  listing  of  all 
ionograms  stored  on  the  fixed  disc,  and  the  operator  is  offered  the  opportunity 
to  have  a  hard  copy.  If  the  computer  has  not  l)een  PAUSED  since  the  last 
RECORDing  session,  the  list  is  available  immediately.  Otherwise,  it  can  take  up 
to  about  20  seconds  for  the  information  to  be  read  from  the  fixed  disc. 

PURGE  Function:  This  softkey  function  resets  the  count  of  recorded  ionograms  to 
zero.  (Ionogram  data  are  not  actually  erased,  because  that  is  a  time-consuming 
operation.  New  ionograms  are  written  tiver  the  old  ones,  and  the  count  is 
advanced  after  each  new  ionogram  is  completed.)  To  avoid  accidental  jiurges,  t ho 
operator  is  asked  twice  to  respond  affirmatively  to  a  question  regarding  his 
desire  to  purge  the  data  file. 
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CHANGE  PATHS  Function:  The  data  collection  program  automatically  labels  data 
for  each  ionogram  with  path  name,  delay  time,  and  operating  segments.  If  a 
sounder  channel  is  changed  to  monitor  a  different  transmitter,  the  identifying 
data  in  the  computer  must  also  be  changed.  The  CHANGE  PATHS  function  prompts 
the  operator  to  enter  the  new  data.  The  changed  identifying  information  is 
automatically  stored  in  the  fixed  disc  file  PATHDATA  so  that  it  will  be 
available  even  if  the  computer  is  switched  off  and  then  restarted. 

SET  TIME  function:  This  softkey  function  is  included  to  make  it  easy  to  set  the 
computer’s  internal  data  and  time  clock.  The  time  should  be  set  with  " 
accuracy  of  +  1  second,  for  which  WWV  is  usually  an  appropriate  standai.^. 
Operator  is  prompted  first  for  date  and  then  for  time  ZULU;  in  either  case, 
RETURN  leaves  the  current  entry  unchanged.  When  a  changed  time  or  date  is 
entered,  the  clock  is  set  as  of  the  instant  of  pressing  RETURN. 
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Table  I.  Electronic  Signals  Extracted  at  Jack  J7 
from  the  Barry  RCS-4B  Sounder  Receiver 


BARRY 

PIN  SIGNAL  DESIGNATION  SIGNAL  DESCRIPTION 

1  GND  Ground 

2  S/A  Sync  Spectrum  Analyzer  (S/A)  Sync;  TTL  LO  during 

each  60-msec  data  transfer  period  (sweep) 

3  S/A  Spectrum  Out  Time-of-arrival  data:  0-5  v  (=>  signal 

strength)  for  a  0-60  msec  period  (=>  0-5 
msec  relative  time  delay),  once  for  each  of 
279  sweeps 

A  S/A  Clock  (3.3  kHz)  (not  used  in  data  collection  system) 

5  Sweep  Run/Stop  (SRS)  TTL  LO  during  each  279-sec  ionogram  data 

collection  period 

6  Receiver  AGC  Voltage  Signal  strength  data:  0-5  v  (=>  -110  to 

-55  dBm),  strength  of  strongest  mode 

7  Upper  Frequency  Limit  Sounder  scanning  range:  LO  =>  2-30  MHz; 

(UFL)  HI  =>  2-16  MHz 

TTL  LO  when  path  1  is  being  sounded 

TTL  LO  when  path  2  is  being  sounded 

TTL  LO  when  path  3  is  being  sounded 


12  nc 


8  Path  1 

9  Path  2 

10  Path  3 

11  nc 


7 


Table  II 

Electronic  Components  comprising  the  Data  Collection  System 


1.  Barry  Research  Corporation  RCS-AB  Chirpsounder  Receiver 

2.  NRL-made  pulse-shaping  circuitry  (See  circuit  diagram, Figure  A.) 

3.  Hewlett  Packard  Company  (HP)  300-Series  computer,  Model  98580A  Bundled 
System,  option  A  (Operating  System  on  3  1/2”  Flexible  Discs);  includes 
HP35731A  Graphics  Display  CRT  (medium  resolution,  bit-mapped, 

monochromatic  Display) 

3a.  HP  98620B  DMA  controller 

3b.  HP  98625  HPIB  Hi-speed  disc  interface 

3c.  HP  986A0A  7-channel  ADC  interface 

3d.  HP  986A5A  software  for  ADC  interface.  Option  630  (3  1/2"  flexible 
disc ) 

A.  HP  79A2  2A  Mbyte  Winchester / 65Mbyte  cartridge  tape  drive 

5.  Black  Box  Company  A88  data  buffer 

6.  HP  Thinkjet  printer 

7.  HP  9122S  3  1/2"  flexible  disc  drive 
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TABLE  III.  Organization  of  the  lONOGRAMS  file,  which  is 
created  as  a  data  (BDAT)  file  of  41614  records,  each  of 
length  400  bytes. 


Records 


Contents 


1  -  143 
144-286 
287-429 


Data  for  lonogram  1 
Data  for  lonogram  2 
Data  for  lonogram  3 


41470-41613  Data  for  lonogram  291 

41614  Number  of  ionograms  recorded  in  the  file,  in  14 

format 


TABLE  IV.  Contents  of  the  143  records,  of  length 

400  bytes  each,  comprising  the  data  for  a  single  ionogram. 


Record 


Contents 


1 


2-3 


4 


5-143 


Header  (396  characters) 

AGC  data  (279  two-byte  integers,  representing  the  AGC 
values  for  the  279  sounder  sweeps) 

lonogram  data  for  sweep  1  (200  two-byte  integers 

representing  the  amplitudes  for  the  200  digitized 
ionogram  pixels  of  sweep  1) 

lonogram  data  for  sweeps  2-279  (200  two-byte  integers, 
representing  the  amplitudes  for  the  200  digitized 
pixels  of  each  of  two  adjacent  sweeps.  The  less- 
significant  bytes  contain  amplitude  data  for  one  sweep, 
and  the  more-significant  bytes  contain  amplitude  data 
for  the  following  sweep.) 


TABLE  V.  Description  of  the  A40-byte  Header  record. 


Character 

1-10 

11-12 

13-AO 

A1-A8 

A9-50 

51-56 

57-58 

59-69 

70-71 

72-79 

80 

81-AOO 


Contents 

lonogram  name  (for  example;  03JA8713A5,  which  describes  the 
nominal  Zulu  date  and  time  of  ionogram  start) 

"  "  (2  blank  characters) 

Path  name  (for  example  "TINKER  TO  FT  HUACHUCA 
Sounder  path  number  (1,2, or  3;  for  example:  "  PATH  2") 

II  II 

Time  delay  of  sounder  transmitter  start  (for  example: 
01M50S) 

Date  of  start  of  sounder  transmission  (for  example: 

15  Jan  1988) 

Zulu  time  of  start  of  sounder  transmission  (for  example: 
16:17:11) 

"Z"  (referring  to  Zulu  time) 

Blank 
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NflVflL  RESEARCH  LflBORflTORV  lONOCRflM  04MP88I910 
GIBCflLTflR  TO  NRL  D=.57  4Harl988  19:1):29Z 

SOUNDER  PRTH  1 

-65  T - 

siG  : 

(dBmJ 


DELRV 
( mSEC I 


3  10  12  14  IB  18  20  22  24  26  28  30 
FREOUENC'i'  (MHz) 


Figure  1.  lonogram  04MR881910,  representing  HF  propagation  over  the 
Gibraltar  (UK)  to  MRL  path.  Top:  a  photograph  of  the  CRT  display 
on  the  RCS-4B  sounder  receiver.  Bottom;  the  same  data  after 
digitization  and  display  on  the  \RI,  data  recording  system. 


35'  WHIP  ANTENNA 


Figure  2,  Block  di^igram  of  the  obi  ique- inc  i dene c- sounder 

data  collection  svsteiTi. 
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APPENDIX.  CHIRPA  LISTING 

This  BASIC  program  is  written  for  Hewlett-Packard  300-series  computers. 

The  fixed-disc  is  addressed  "  :79A2, 1402,0"  and  the  1/4"  magnetic  cartridge  tape 
unit  designation  is  "HP7942 , 1402 , 1 " .  Lines  1155-1166  represent  machine- language 
subprograms  from  the  HP98645A  Measurement  Library,  which  permit  BASIC  control  of 
the  HP98640A  A/D  converter. 


Copy  avoUoble  to  DTIC  does  doi 

peimit  hillT  xopioductka 


1  L  PROGRAM  CHIRP 4 


3  I 

4  I 

5  I 
S  ' 
7  ■ 
3  ' 

9  I 

10  I 
1  1  I 
12  i 
I  3  I 
I  4  ! 
15  I 
1  b  I 
17  I 
1  8  I 


This  p  roar  an  for  the  Hewl  et  t-Pacl:  ard  310  ccnouter  enables  data  from 
a  Barry  Research  RCS-4B  ionospheric  sounder  receiver  to  be  recorded 
on  an  HF7942  fixed-disc  storage  unit,  and  to  be  reproduced  on  an 
HP  2225A  Thinl-jet  orinter. 

Do  to  291  lonograns  nay  be  stored  in  the  “ lONOGRAMS "  fi-ed-disc  file. 

In  routine  ooeration,  the  ’’lONOGRAMS"  file  is  filled,  cooied  onto  a  1/4’ 
cartridge  nagnetic  taoe.  and  then  ourged ,  naking  it  possible  to  fill 
another  ’’lONOGRAMS"  file.  Do  to  four  such  files,  tyoically  naned 
lONOGRAMSl",  "  I0N0GRnMS2"  ,  "  I0N06RAMS5  '  ,  and  "  I0N0GRAMS4 ’’  ,  can  be 
cooied  onto  a  single  S5-Mbyte  taoe. 

The  ’  lONOGRAMS ’’  fi-ed-disc  file  contains  ltS14  records  of  400  bytes  eacn. 
Data  for  individual  icnograns  are  stored  in  successive  blocks  fo  143 
records,  eacn  of  iuhich  has  the  followig  fornat  : 


Rec  .  1 

Rees.  2-3 
Rec .  4 

Pecs .5-143 


Header  <400  characters) 

lAGC  .  279  integers  of  AGO  dta  (in  400-elenent  array) 
200  integers  reoresenting  SPEC  data  for  first  sweeo 
139  records  of  200  characters  each,  in  ijhich  the 
least  significant  bytes  reoresent  SPEC  data  for  one 
sweeo  and  the  nore  significant  bytes  reoresent  SPEC 
data  for  the  following  sweeo 


Pecord  4IG14  contains  (in  14  format)  the  number  of  lonograms  recorded 
in  the  "IQNGGRAMS"  file. 


fne  eSUB  routines  at  the  end  of  this  orogram  must  be  loaded  from  the 
rP93645A  software  for  the  HP99G40A  ADC  interface.  They  are  reouired 


'r  ! 

only  for  the  REC 

CRD  function. 

rr  i 

34  i 

35  1 

program  written 

oy ; 

3B  ' 

Mari-  Oaeh  1  er 

-77  ] 

Code  A! SI 

33  ' 

Naval  Research  Laboratory 

3°  1 

Washington,  DC  203"'5 

40  i 

■;  202  )757-239l 

4 1  ' 

42  ' 

Latest  revision: 

5  Aoril  1888 

U3  1 

44 

OPTION  BASE  I 

5 1  -i :  T 

45 

PRINTER  IS  1 

1"" 

CQnTPCL  CRT,  12:’ 

'  ke.v  labels  off 

43 

PRINT  CARS- 1 23 

*  Stoc  olini-irg  and  inverse 

'/idee,  if  on 

48 

SLrP'jT  veDiChps' 

2B5  ■  3CrP$i 75  - :  Clear  scree 

n 

50 

MASS  3TCPAGE  IS 

'  : HF78A2  .  1 403  '  i  Pi-eo-disc/ 

:_artridge  taoe  ccmpi-at 

51 

I  'ITJ  T  P 1  j  i_  -  5  C  ,  '  5  ;  1 

’“'aies  aIl  levccarc  -'300 

series  tod'  romoatiole 

52 

'  witn  88303  ‘svDcanp  -the 

! b  d  on  w F  8  5 3 3  ■ 

on 
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Copy  Qvculablo  to  DTIC  do««  not 

faUy  InfftKLf 


53  DIM  Soundata<  5  ■'  ,Sdata<  100  >  .Age'  400  '  .T  it  le$[  39B  ]  .HousI-  eeo 

t<  379  )  ,Path$<  0:3  /  [ZS]  ,U$[  1  50]  ,0$[  iol  30  ]  ,,Tt$[  50  ]  ,0  1  $[  3  1  ]  ,T 

54  DIM  Lat  <  3  '  ,Long(  3  1  ,0D5eg$(  3  /  [  30  ]  :Neu)oath$C  33  ]  .NauiopsegSI 

55  INTEGER  l3Qec(300:,IaQC<400;.loijt(30O',Gridarray<35600', 
( 300  >  ,T delays  0:3  ,3  )  .Tdmin  .Tdsec  .Jeattest 

55  ALLOCATE  0cat$< 334  )[ 48  ] 

F'jnc  1 1  on$=  '  PROGRAMSTART '' 

Gr  1  dr“ady$=  ''  NO " 

Catuctodate$="N0‘' 

Journal$="N0J0iJRNAL" 

DIM  Mon$[ 36 ]  ,Mon3$[34  ] 

MonS=''JANFEBMAPAPRMAYJUNJULnU65EPOCTNCMDEC-' 

Mon3$=" JAFEMRAPMY JNJLAUSEOCNODE" 

D 1  scr  1  m= . 45 

Hait$='‘"  'Ra^at 

IF  TIMEDATE  3.  n37i73-i315E+n 
Menu  :  ' 

Oldfunct ior$=Fupct i 3n$ 

Func  1 1 on$= “MENU “ 

IF  Oldfunct  ionS=“CHAN6EPATHS'' 

OUTPUT  KBD!CHR$(  355  )2,CHR$i  75  : 


'  .  ; . 3cec 
emo  <300  1 
30 ] ,AS[ 3 
I  n  o  n  t  h  .  P 


<  300 1 . T  m □ 
00] 

a  t  h . I  + 


57 

58 

59 

60 
61 
63 

63 

64 

65 

66 

67 

68 

69 

70 

71 

•nn 

73 

74 

75 


THEN  GOTO  Set  tine 


1  .n  a  1  ' 
Ian  R  R 


THEN  GOTO  73 
!  '  Clear  screen 


IF  01 d func t 1 on$= " SETTIME “  THEN  GOSUB  Disoiaytine 
PRINTER  IS  1 
OFF  ERROR 

CONTROL  CRT.  I  3:0  '  Turn  on  uaei — kev  laOels 


76 

ON 

KEV  0  label 

“RECORD", 1  GOTO  Record 

7^ 

ON 

KEV  1  label 

“DISPLAY",!  SOTO  330 

"3 

ON 

KEY  3  LABEL 

“LIST  SRAMS",!  GOSUB  517 

79 

ON 

KEY  3  LABEL 

PURGE  "  'GOTO  R'jrge 

80 

ON 

KEY  4  GOSUB 

Do_notHing 

3' 

ON 

KEY  5  GOSUB 

Oo_not  hing 

93 

ON 

KEY  6  LABEL 

■'  QUIT"  GOTO  End 

33 

ON 

KEY  GOSUB 

D3_no thing 

94 

ON 

KEY  3  LABEL 

"CHANGE  PATHS"  .!  GOTO  Changecaths 

85 

ON 

KEY  9  LABEL 

SET  TIME';!  GOTO  Settine 

56 

t  c 

X  ' 

Rune  t 1 onS  ■  ' 

settime "  Then  goto  99 

87 

'rfsir: 

1  -'waIhJ 

556  :CATE5;  TIMEDATE  ^  ,TIM£$i  "^IMEDATE 

53 

GOTO  Lraa 

39 

IF 

01  nfunct icnS 

=  ■  ppQitPHMSTART  "HEM 

30 

CONTFOL  CRT, 

!  : I  !  1  Set  t  o  CRT  line  i  ! 

9 1 

AS=RPT$(  '  " 

30  1 

93 

PRINT  A$;  '■ 

NA'v'AL  RESEnPCH  LABORATORY" 

93 

PRINT  A5  : 

'WASHINGTON,  DC  30375  USA" 

94 

PRINT 

95 

PRINT  A$ ; ' CH 

IRPSCUNCER  ICNOGRAM  PECCRCING  FRCGi 

96 

Rune  t 10^5  = 

97 

99 

grams ' 

99 
:  00 

10!  Li 


END  IF 
IF  Furct 
c 


30*=  “OI  SPLAv  ■'  then 
ILE  "'JQ  ^ 

CGt'i'^^OL  CPT  ’:;Z  '  Ke'^  ! 


FPINT  PPT$( t 
’HE  PEGUEE-7E3 

3  D  e  1  r  3  i  fj  a  V  5  -3  H 


P  M  M  •' 


*  •  5  CE 


'  U  PC 


ic-n$="^'^ENU’ 
C-  0  7  C  L  0  •: 


2s.-3;tiR“:y=-" 
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154  control  SGrai^pat  h  ;7  :  4  ■  S  1  i  i  Set  EOF  oointer  to  end  of  file 

155  60SUB  Plot_grid 

I 5G  C3tuptodateS="N0" 

157  U$=PPT$(  "  %75  1 

158  OFF  key 

158  ON  KEY  0  SOTO  Do_nothir'Q 

'60  ON  KEY  1  GOTO  Do_nothing 

'51  ON  KEY  2  SOTO  Do_nC'thing 

152  ON  KEY  5  GOTO  Do_’'.othinQ 

153  ON  KEY  4  GOTO  Do_nothing 

164  ON  KEY  5  SOTO  Do_notninQ 

'65  ON  KEY  5  LABEL  "  QUIT'' J  SOTO  55 

156  ON  KEY  7  GOTO  QQ_notning 

‘6’’  On  key  8  SOTO  Do_notoi'iQ 

168  C  N  E  9  G  0  7  n  Q  o  n  o  t  h  i  q 

'68  control  CR7.12:2  '  K^y  labels  on 

1 "O  PRINT  RPTSf CHR$1 1 0  1  , 1 5  !  I  CHR$(|0)=line  feed 

17’  PRINT  USING  . lONOGRAN"  ■■  ,40"  iSramnum 

l^O  PRINT 

173  PRINTER  IS  1  i  EOL  CHRJMS)  '  CR  only  '-no  linefeed)  after  PRINT  stater^ent 
print  ''RWEEP" 

1  "5  I NnGE  5  '■<  ,  J’D 

175  5 1  ar  t  _5earc  h  :  T  une  1  =T  INEDATE  '  Wait  for  beginning  nf  lonoarai" 

'T”  5eauential_5can;  "SPECTRUM"  .2,2,.  0G030 1  .  Soec  (  ♦  )  ,.  200  ) 

173  Seouent  ial_3C3n<' "SOUNDER”  ,  1  ,7  . .  00002  .HouskeeDl  * '<  J  i 

'"9  Ti:»ie2  =  TIMEDATE  '  TIME2  is  start  tine  for  this  ionogran 

'50  I~  '■  T  ’  me2  “T :  me  1  '  '.'O  THEN  GOTO  Fir3t_5oan 
151  JAIT  .’0 

'52  GOTO  5tart_5e3rch 

'SC  R  ir  5 1  _3c  an  :  Pa  t  r  =  -  '  55N<  Hou  st  eeo '  5  '-2 . 5  - 1  ) '  2-'  56N(  HousKeeo  i  6  )-2 . 5  )  - 1  '-3»  l  S 

G  N  H  Q IJ  3  j,  »  B  n  '  7  ;  -  2 . 5  •  -  '  '  2 

'  - 1  -'.  =  \ 

'55  Agc'K'>  =  Hous*'.eec'-l) 

'56  =l:'t_03*a:  POP  J=i  TO  20-0  '  “lot  data  for  first  sweeo 

'  5  c  '  J  '  0  .  S  I'  ■?  c '  J  f 


1  5  6 

Ic"  i,G‘2C'  j  ‘  L'lrC'"! 

n  7^EN  19 1 

’  '*  9 

cdLj"'  - 

'  50 

=  5NUP 

’  5 ' 

NE^T  j 

'  52 

IP  ^arh  3  CP  “atr,3 

^  f  t 

'  93 

‘  J  $  =  “  a  *  t5  '  P  a  *  n  '  i  R  p  7  5 1 

'  ’  C  > 

U$=i'!ame  of  lonogra'’'’ 

’  9*1 

Ci=U$C  '  .C9  ] 

. 

t_„j  =  -'mE$;  ';,^e2  '■ 

■ 

C  '  =  ;PL  '  7  :  ■T'S:  a  5  ; 

'  - 

;  -  PPA-C"  C 1  5 . 0  =0 

-EN  GO'S  C00 

‘  99 

■J  -  ■ 

’  9  9 

3C7C  '9'’ 

220 

C’$="00  'CU'ALS  Cl 

_  O  ■ 

C  5=01 5;l5N' 01 5  -■  _ 

EN'Ql 5  ] 

1  1 

■CJ 

CavB  =  CA'E5-'  ^i-eC 

-  ,-t  - 

I  ^  c  r  t  ^  ^  "  9  '  c  P  9 

5  J  a  t  5 1  -1  51 

-'C 

I 

:5=Ca-i[i  : ;  Cl'':'’;  5' ; 

*  r  ^  1  z  •  ^ 

-■Yi  <3  n  t  n  '  Or  C  5  *■  J  [  ’  x)  1  ’  ]  L*  ~  1  "5  [  ' 

:  IC0 1  ■$ 

-  ,'^c 

_  f  _ 

o$M  •  :=  ■  '  'hfn 

9  S  =  '  t '  Z  9  5  [  Z  ’ 

0] 
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206 

l5pec=  ^51  .2  '♦5oec  ' 

FI  . 

2  =  256/5 . 0 

207 

OUTPUT  i3Grarnoath,4+l43»<'3rampum-l 

i:  I 

5  D  a  0  ‘  ♦  I 

208 

PRINT  USING  223;!< 

208 

RPLOT  1  ,220+10»Agci  '  I 

210 

PENUP 

21  1 

FOR  Ki=1  TO  '39 

y  1  y 

NAT  l5Dec=  <-32"63' 

213 

K=2*K 1 

214. 

Fvgn  scan '•  Sacuant  1  a  1  scanl  "SPEOTPiJN" 

2 , .000301 

215 

Secijent  ial_5can':  "SOUNOEP"  J  ,7..  00002 

, Rousi  aeo 

216 

Age ( K  ‘=Hou5k  eao ( 4  ) 

217 

POP  J=1  TO  200  1  PLOT  DATA  FOR 

THI 

5  SLEEP 

2  1  3 

S  D  a  c  1  J  '  =  N  A  4  1  0  .  S  c  a  c  1  J  ■  ' 

21  9 

IF  Soac'  .J  '  Discpip  TWE'’i  222 

220 

RPLOT  k  .  J 

22  1 

PENIJP 

NE'xT  j 

n  n  -7 

NAT  (Fi  .2i*SC'ec  '  Rc-und  5 

—  a  c 

t  r  ',i  1 

22-i 

NAT  Tano=  1 1  a'^D  ^  C-envan* 

to 

'•eai 

n  ^ 

NAT  TanD=  ( 256 .0 '♦Tepo 

226 

NAT  l5oac=  1 5Dec-^'’’enD 

nnn 

PRINT  USING  223 :K 

228 

IN AGE  "SLEEP  "  ,3D 

n  q 

RPLOT  K  ,220+10*Agc< K 

230 

PENUP 

231 

IF  K!  =  l  ""HEN 

■n  T 

CSIZE  4^,5 

NO'v'E  366, S'S 

234 

LABEL  0$ 

235 

NOi.-'E  ''zaro.'carc 

236 

END  IF 

IF  Kt=2  'HEN 

233 

NOvE  76  .260 

239 

CSIZE  4  _  aOG 

240 

_  6  E  _  USING  '  3  2  '  -  .  2  2  "  =  2  1  5  r  -  1 

24  1 

N  0  L'  E  '•  c  a  r  c-  .  c  a  ^  r- 

242 

end  IR 

243 

IF  L-  ;  =3  T^E'i 

244 

NO'v’E  ■'6.24  = 

245 

LABEL  USING  '  :  Z'-  .2  "  ;Fa"n 

24G 

NGvE  Xca'-c  .  '  ;e''c 

24"’ 

END  IF 

2  43 

I”  ‘*.1=4  ^NEN 

249 

.''C’.'E  TR  36  0 

250 

CSIZE  4  . F0b 

25  1 

L-^BEL  using  •’L4’;P3*p5  Pat-  t 

-  ] 

252 

NCvE  '<Ca'”C  t;5r-; 

253 

END  IP 

254 

I-  ^i-iD  '"PE'f 

255 

'”0'  ’E  ~5  250 

Z  5  T 

OS  I  IE  4  ,  , C0P 

_Rp£_  'jSING  '  :  p  •  14  ■  :  “  3  ^ = 

:  ■  “  : : : 
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258  MOUE  ^nero.Yzero 

259  END  IF 

ZGO  0dd_5can:  K=K+1 

2St  Seouent  ial_scan(  ''SPECTRUM"  ,2  ,2  , , (300301  ,Soec<  ♦  >  .230  ) 
2B2  Seouent ial_5can{  "SOUNDER"  .1,7,  .30002  ,HQuskeep( ♦  > . '  i 
2G3  Age  ‘  K  i=Hou 5 ^  eeo '  •!  > 

2G-1  FOR  J=I  TO  200  '  PLOT  DATA  FOR  THIS  SUEEP 

2G5  Soec ( J  )=MAX  <  0  ,  Soec  <  J  '  > 

2GG  IF  Soeef J  )  Discrin  THEN  2G9 

2S7  RPLOT  K,J 

2G3  PENUP 

2G9  NEXT  J 

270  MAT  TenD=  (51.2'*Soac 

271  MAT  l5Dec=  Iroec  +  Tei^D 
PRINT  USING  228:i-' 

i-fP  RPLOT  K.223'^10*Agc(K1 

274  PENUP 

275  OUTPUT  0Gramoeth;IsDec(*) 

O'^G  NEXT  K1 


-1  ”'7 

278 

2"’9 

280 

2S! 

282 

1157 

iri$ 
284 
235 
2S6 
2  3’' 

298 
238 
2 '30 
:g; 
2  92 
2  83 
284 
2  85 
28G 
2  87 
289 

299 
330 
301 
332 

303 

304 

305 
30G 
30- 
339 
308 


PRINTER  IS  1 

MAT  Iagc=  <51.2  '‘Age 

Delay$="0"SUAL$('  TdelaylPath  .2  '  ' 

Delay$=Del3y$CLEM(  Delay'S  >-l  ,LEN<  Delays  )  l&  'S" 
n$  = " D "  ,3,U(5il$ (■  T de  1  ay  (  Pa t  h  .2  >  > 

Oelay$=D$CLENU 0$  1-1  .LEN( DS  1  ]i"M"iDelay$  i  PATH  DELAY  (XXMVYSi!  5  CHR5 
7ii;le$=0Si"  "iUS[l,28]i"  path  ''S,UAL$<P3th  12,"  "2,Del3y$2,"  "SDatSi"  "3,T 

TitleS  =  Titias?,RPT$' '■  ■'  ,396-LENf  Tit  lei 5  i  TvtUS  IS  396  CHARACTERS  uOND 
OUTPUT  SGramoat  h  ,  1 +1  43 . 3»(  Gramnui^- I  1  USING  " 39GA "  :  T 1 1  le$ 

OUTPUT  i§Gr 3fic a  t  H  ;  laec*  ♦  > 

Gr3(7iniji»i  =  G'"ainun+1 
J  c  a  t  -  J  c  a  t  1 
0  c  a  t  s  <  .1  c  a  t  ’  =  0  $ 

OUTPUT  iSGranoa  t  A  .  4  ’  S  1  4  USING  "4D"!jc3t 

PRINT  "ALL  DONE 

M  U  ’ E  ^  z  e  r*  0  .  X  z  a  z  ^  2  2  '2 

P'R  .1=1  To  z-^P 

IF  Age'.  J''-0  'HEN  296 

RPLOT  J  ^0 

RPLO'  J.10*Agc'j' 

PENUP 

NEXT  J 
'XOUE  Tc  3P0 
C9I2E  4  , , 405 

label  USING  302  :  U$  .  Da  t  $  .  T 1 71$ 

INAGE  2  3A  ^  !0-<  ,gA  .2'<  .3A  .  'Z" 

IF  jcurr,al$=  "NOJOURNAL"  THEN  GOTO  308 
FPINTEP  19  ■’01 

“PINT  USING  30G:'J5  .Patn,DatS  .T.Tii^OS 

inage  ISA,'  PA"H=  '  ,D  .  3D  .3'X  .  iiA.i’X.SA."  Z".3'X.10A 

printer  is  I 

OUTPUT  K'BL'!CHR‘£‘-_E5  jLHRi'*75  5  *  Clear  alpha  acraen 

GOTO  155 
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3’  0  I 

311  I  ***♦*♦♦♦♦♦♦♦♦  OUTPUT  IONOGRAM  TO  HP22Z5A  THINKJET  PPIMTER  ************* 

312  I 

313  Hard_cooy:  Func t 1 opS= " NApncOPY " 


3U 

printer  13  1 

315 

PRINT  TABXYf  1  , 1 

);  1  cy^sor  to  ‘joDer  co^’^^r  CFY 

3 1  S 

PRINT  RPT$-'CHR$ 

MO '.15)  1  15 

317 

PRINT  '■ 

’  p6f^ovc  “I0N0GR'^^1”  CRT 

313 

PRINT  " 

■’  1  R A w n V e  "  X  A  Y  OF  Y X  V  '*  f  " 0 ro  C R 3 

319 

PRINT  ■' 

!  R  6  M  o  V  6  "  5  ui  E  E  P  y  V  y  '•  f  r  n  rn  C  P  T 

320 

PRINTER  IS  701 

321 

GRAPHICS  ON 

322  1 

CLEAR  !  Thi3 

cor^f^snd  ^“ouirsd  u5i^o  ^P353'G  nr’r«’e^ ■  u 

3Z3 

INTEGER  32':25E00) 

j  a 

STATUS  CRTJ2:Z 

ra 

325 

control  CRTJ2; 

1 

32S 

S STORE  S2<'*  ' 

327 

DUNP  graphics 

323 

RETURN 

329 

1 

330 

I  ‘DISPLAY  lONQGRAf^S  DISC 

331 

! 

332 

PRINTER  IS  1 

333 

OFF  TINE 

33'! 

OUTPUT  KBO  !  CAF$(  255 '■?.CHR$>  75 ;  ■  riear  s 

335 

GRAPHICS  OFF 

33E 

F UPC  *.  1  onS= "  n  I  SPLAY  " 

337 

IF  Cat  up  t  oda  t  a* 

=-N0"  then 

338 

CONTROL  CRT  , 

I'M  1  5  ^  V  C  P  3  0  ■-<  r  5  c  r"  to  1  i  ^  "S 

339 

PRINT  PPT«( " 

■■  L  9  li  "READING  lIGT  "F  ICnIGRA'-S  L-  --  =  1  lii: 

3A0 

GO SUB  List_praP3 

3A! 

control  CRT  ^ 

i  !  1  1 

3^2 

PRINT  RFTSC 

"  ,30 

3-i3 

CONTROL  CRT  . 

1  i  1 

3-1-1 

ENO  IF 

3-15 

OFF  KEY 

3*15 

Gf-i  f^-  tY  0 

Do  ^ 0 1 - 1 ^ o 

3*1” 

■IN  S:rV  1  SnSliR 

O  '",  <"0  t  ^  •  n  “ 

3-18 

ON  KEY  C  label 

”  LlS3  5C3G  ^ 1  cT ijc ;7 <2 r 3 1  0’ f** 

3-13 

ON  KEY  3  G05UB 

Do 

350 

ON  key  a  go  sub 

OC'_nc  T  H  1  pg 

35  1 

ON  KE'i'  5  GOSUB 

Do  ^Otf^lPQ 

352 

ON  KEY  5  LABEL 

QUIT"  1  goto  ""-l 

353 

ON  KEY  ~  GOSUB 

Do  c t  n  1  O' □ 

35-1 

ON  KEY  S  GOSUB 

3  O  O’  t  1  ^  G 

355 

n  f*:  P  r'  P  P  n  P  i  i  R 

0'a_n.atHirg 

355 

CGNTPOL  CRTJC! 

2  •  r.ey  labels  a~ 

352 

Ou3n*=0  Ou 

,Ant=  nyfv»n#ar  r.  r 

353 

S  T  -1 T  ;J  5  C  R  T  ,  1  :  K 

i  K  =  0 urgent  CRT  l;re  aazi‘ia’~ 

359 

^PINT  "  ENTER  ^^area  at  i  r-r-oc^a^a  ‘.■a  be  ala-'aa  as  i ‘  a  1  La  i.j  1  "■  ■!  a-ar^cle 

380 

-^0  INT 
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361  PRINT  "  SINGLE  I0^40GRP'M:  2P:P960e05" 

362  PRINT  "  MULTIPLE  IONOGRAMR:  2 JU8G00 1 5-3 JU8G 1 0 

363  PRINT  "  ALL,  OR  ALL  OF  ONE  PATH:  ALL" 

364  PRINT 

365  control  CRT. 12^2  *  l^bsls  on 

366  PRINT  "  CHOICE:  "i 

367  01$="" 

368  K=0 

369  GOSUB  Ask  fora 

370  01 S=TRIM$( UPCS<  ASC  1  ,3'  ]  >  ) 

371  IF  01$=""  THEN  GOTO  365 

372  IF  OIS="ALL"  then 

373  0  ^ 1 r  5 1  $ =0c  a  *  $  f  1  '  [  1  ,  '  0  ] 

37ii  01ast$=0.:a+$<  Jcat  i[  1  .'OI 

375  SOTO  331 

376  END  IF 

377  Iqo3=P0S(  Qi  $.'■-"  1 

378  IF  Ioo3=0  then 

379  Of irst$=TRIM$( 01  $  ) 

380  Oias*$=TRIM$( 01  $  ) 

331  Oudnt=l  I  Ouant=  number  of  icnograms  to  be  olotted 

332  GOTO  387 

393  END  IF 

384  IF  I D o 5 ' 9  THEN  GOTO  365 

385  Qfi^st$=01S[  !  ,lQos-n 

336  0 1 3  5 1  $=0 :  $  C 1 0 o 5  1  .  LEN 1  Q :  $  1  ] 

337  IF  L£N( 0 f 1 r 3 1 $  ) :  1 0  ^hEN  Qf ir 5 1 $=0 t its t ?[ 1  , 1 0  ] 

388  IF  lEN<  QiastS  )-.-i0  theN  01astS=01a3t$C  1  , 1  0  ] 

389  IF  l£N(  Of  ir5t$ -  =  9  THEN  Of-irst$="0"3,Of  irstS 

390  IF  LENi  01ast$  ;  =  g  THEN  Ola5t$="0"  iOl.astS 

391  IF  C a t uo t oda t e$= " NO "  THE^!  GOSUB  Li5t_gram5 

392  FOP  ki=i  TO  Joat 

393  Kfir3t=t''' 

334  IF  Ot ir3t $  =  0car $: K 1  :[ I  ,  ; 0]  THEN  GOTO  Ne-touea 

365  NE'^T  ! 

396  FPpJT  USING  39''!0t;'-5"$ 

-3-’  I^AGE  "  7MEFE  IS  NO  ICNCSRam  ".k,".  ENTER  REOUEST  AGAIN." 

393  9  G  7  0  365 

399  e  •  1 0  i.i  e  5  :  FTP  i-'  2  =  1  70  r  a  t 

400  Kl35*=’''2 

40!  IP  0  last $  =  Cca* $( HO  ’ 0 ]  THEN  GOTO  Choo5e_path 

402  NE'.<T  2 

403  POINT  USING  404;Oia5t$ 

404  IhaGE  "'-"ERE  IS  MO  IONGGRAH  ENTER  pEOUEST  agaIN." 

405  GO'O  35' 

406  C  Hcmo  se_o  3 1  n  :  S  teas  1  ie=36N' H  last-"  t  ;rst,  ■ 

40'  IF  5teosire=0  TUEN  Stecsire=1 

403  IP  0030*=!  THEM  GOTO  429 

406  =ciNT  3p-$;r!Hp$  !0,  3.  I  3  i:ne  "eeds 

110  print 
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PPINT  "FOR  FXr-MPLE  .  POR  JUS"^  PATM  1  RETIjRN 
PRINT  "  for  FATH5  Z  AND  3  RETURN  33" 

PRINT  "FOR  ALL  PATAS  .  PUSH  RETURN" 

PRINT 

PRINT  "CHOICE:  ; 

SOSUB  Asffora 

If  A$="''  them  goto  aZS 

Plot  1=0 

PlotZ=0 

Plot  3=0 

FOR  K=1  TO  LEN<A$) 

IF  ASI  k  .K  ]  =  "  1  "  THE^4  Plot  1  =  1 
IF  "  2"  then  PlotZ  =  Z 

IF  A$[ K ]="3"  then  Plot3=3 
NEVT  n 

IF  P  lot  1 +Plot  Z  +  P  lot  3  0  THEN  GOTO  aTI 

Plot  1  =  1 
Plc.+  Z  =  Z 
Plot3=3 

FOR  P3thae=!  TO  3  i  Plot  all  of  oath  I  .  tHsn  ostR  Z  .  tFs'*’  cato  3 

IF  Pathae=i  AND  Ploti -t  THEN  GOTO  Na*t_DatHa0 

IF  PatPee=Z  AND  PlotZ'  Z  THEN  GOTO  Na-t_GatHee 

IF  Pathee=3  AND  PlotZ-  -3  THEN  GOTO  Ne.t_Dathes 

Guant=0 

FOR  KkZ=kfir3t  TO  Klast  STEP  Steosioa 

IF  Qc a t $ (  K kZ  ' C AS  . A3  ]  =UAL5 ^ Pa t bee  1  then  Ouant =Quanr  +  t 
NEXT  KVZ 

IF  OLiant  -0  then  GOTO  Gcahead 
GOTO  Ne--t_patbee 

R  e  H  1  n  d  O'  o  a  r  a  T  o  r  :  G  0  S  U  B  S  '  T  i  “  o  t  - 1-,  list  of  ;  o  n  'O  g  r  a  h  a 

GOTO  35G  '  Go  Pack  i  a3^  tor  orams  t oe  oiaola-ao 

Goahaad:  NeHcage$= " YES "  i  Z  lonograma  oar  cage 
ON  FEY  Z  GOTO  Do_nothing 
NO'-yt  =0 

FOR  K t-  Z=b  t  ir 5  t  TO  1-3  5 1  STEP  3 1  ec  3  i  ze 
Q  1  $ = 0  c  a  t  5  (  K '  Z  'll  ,101 

IF  0 c a t  $  1  k k  Z  ■  [  A 3  .  A S  ]  ■  1/ A L $ :  P a  t  H e e  :  THEN  GOTO;  A F  ’ 

Nouik  =Noujl-  + 1 

GOSUB  Disclavgrar'  i  This  is  tHe  rnyti^a  i "  .■.•r-;'-.  a 

PRINTER  IS  T01  '  series  ot  10 rogramaiaric-'teP. 

IF  Neuioa'ge'S=  '  YES ’’  THEN 

PFirjT'IHRSi’Z:  :  ■ZHR$‘:'Z'=caGee'eot 

PRINT  CHP'S  (  1  0  i  .ChR£'  1  3  1  '  CHFSi  I  0  i  =  '.^i  i  oe  Ii'e  -'ee'C 

NewoaaeS  = " NO "  '  CHR$:  13  j  =  rarr'oio  li'~e  tae'ik 

ELSE 

PRINT  CHR$('0'  I  lire  feed 

N  ui  o  a  Q  E  S  '* 


46'  NEXT  KV.  2 

462  Ne ■- 1 _p a t  Hee  '  NE^T  Pa+hee 

463  PRINTER  IS  ' 

■164  control  CRT.  I  2:2  '  '•'EV  LABELS  ON 

465  S'DTG  65 

466  Di5ni3.-gram:  '  IF  LEN<!jI3''10  TNEN  0  t  $=0  1  S.i  •  0  “ 

4B7  OUTPUT  KBD  :  CNR$(  255  ig-CHRS;  75  ) :  i  Clear  screen 

46 5  GO SUB  PiGt_crid 

469  NOUE  366,375 

470  CSIZE  4  ,  . 5 

471  IP  LEN<O!$''=10  and  013110.10]  ■'  THEN  GOTO  474 

4 -’2  LABEL  ■'  -CO  IS 

4  3  r  0 ' 0  4.5 

47a  _ABEL  CIS 

4-5  PPINT-EP  IS  1 

476  PRINT  RP'S.  CHp$.'  1  0  ,1  ,  '  5  i  I  CHR$(  10  >=Line  feed 

477  IP  0i35ts=""  THEN  SOTO  4S1 

47.5  pPINT  "  lONOGRAN" 

4-9  print  using  A30 : NowL, Quant 

450  I  ‘1 A 6 E  3D."  OP  '‘.3D 

461  PRINTER  IS  1  1 EOL  CHRSi  13  1  '  End  of  line  sepuerc 

492  PRINT  USING  515 

4-63  enter  ;?Gr  anC'  a  *  h  .  1  1  4  3  *  '•  fi  1=  2  ~  1  )  USING  '*  3  96  A "  i  T  i  1 1  eS 

4,94  0$  =  Tit  leSl  1  ,10] 

4S5  =  t  leSC  1  3 ,40  ] 

466  Pat  r  =  uAl  ■  ''itleSC43.4.9]  ) 

457  Dela.>S  =  i'i- ie$C5i  ,561 

463  D  a  t  $ = T ; t i a  $ [ 5  9  . 6  9  3 

489  T '.^$  =  71  MeSC  "2  ,79  ] 

490  rNTPR  ?  Gran  0  aid  *.  lac 'C'*  1 


End  -af  iina  seauence  is  CP  'Cnlv'  (no  LF 


It  1 

NONE  ”’5  .360 

1 1 2 

CSIZE  4  ,  ,  406 

49.3 

uABE-  '.iSING 

494 :U$  . 

igi 

■"AGE  CSA  ,  ‘ 

r.  _  ■►  -1  r, 

zc 

i_  r  6  E  L  'c'  5 1 '  1 G 

496 1 Pat 

-  9S 

I‘-’pG£  ■  3  /  . 

D 

I 

■■1  ^  T  4  Q .-  =  T  5 

go  '  ■ 5  1  .  C 

1 1  r 

A  C ' E  ^  I  e  r  c 

/  c  e  r  0  ■*'  C  C 

1 1 9 

p'R  .1=1  PR 

C^9 

E30 

IP  Arc  ; 

, .  0  T'jEN 

E0T 

PPLC~  , 

0 

52.2 

0  p  :  r  T  T 

’ 0»Agc •  J 

r  2'  J- 

PENUP 

—  •>  t 

r  — 

■;P<r  ; 

505 

■^O'lE  tzerc. 

^  c  e  r  0 

506 

P  1  -  5  *■  _  3  e  e  0  : 

r  =  1 

r  f-j  T  p  p  3 

w  ■ 

509 

'^i^T  i  2  ^■Z  = 

r  T  '  c  p 

I  t.  '  —  — '  -  • 

r-OSitiOn  to  clot  AGC  31: 


- ^  r\ 

_•  _  f  c' 


IJl  IJl  i/1  Lfl  1/1  m 


51  ! 

RPI_ 

OT  K  ,J 

512 

PENIJP 

513 

NEXT 

T 

^  ’  *i 

PRINT 

USING  5l5;k 

515 

IMAGE 

SNEEP  ''..30 

51s 

PQR  k! 

=!  TO  135 

51 " 

ENT 

EF  Sbrai^DathilsDec'’* 

513 

E  ven_3weeo  :  K=2»k'! 

515 

MAT 

SDec=  Iscec 

520 

MAT 

5cec=  3Dec+'527S8> 

52  1 

MAT 

Sd2c=  Spec/' (255  1 

FOR  J=1  TO  :00 

Soec’-  J  '  =  INT'  Saec'  J  - 


F2-1 

Ar  .1  AT  «. 

r  1  /  c  1  -* 

525 

I F  Saec  i  J  '  G  j. 

SC"  If"  TPEN  523 

bZb 

P  P  L, '  J  T  2  *  1  .  J 

PENUP 

523 

NEXT  J 

529 

PRINT  USING  S’ 5; 

H' 

530 

0dd_3weep;  K=2*K1+1 

531 

MAT  Sd^c=  Isc-^c 

C-rp 

M^T  Sc6C” 

52TG8  - 

533 

FOP  J=1  TO  230 

531 

Spec ' J  ’“Spec ( 

J  1  NOnijLO  255 

3S 


ill 
5^2 

3*13 
F^-i 
R  J  ^ 


Soec ( J  ’“Scec ' J  :  /5 1  .  2 
IF  SceC'J')  Discri^  'HEr-j  SOTO  535 
R  P  L  0  T  2  ♦  ’  ,  J 

FENUP 
WE  XT  J 

PRINT  USIWG  FiRjK' 

NEX’  k' ! 

PRINTER  IS  ! 

=  ETL'PN 


SE'^  TI»^E  ‘ 


^  ♦  4  ♦  4 


b  ^  b 

1 

b-lT 

Set  1 1  f"  e  1 

■j  1  d  t  'j  f'  C  t  I  r  n  J  =  F  i  1 0.  r  r 

5i8 

R  u  n  c  t  1  c 

r  5=  ■'  3ETT  I  ME  ■' 

5pg 

IUTF'JT 

^'BD  :  ChH'Si  255  ’■3<C*-'P? 

550 

ON  k'EV 

0  b  C  5  L'  5  D  C'  ^  0 1  h  1  n  □ 

55  1 

ON  kCY 

1  '  T 1  y-. !  1 R  n  n  nothing 

5^“' 

ON  KFV 

2  G  Ci  S  L'  B  D  C'  0 't  n ;;  r*  0 

f  1 
in 
in 

ON  KE't 

3  buZL'B  Dc  noT!-iirr: 

55*1 

ON  kP',' 

5  ;_aeEL  ■'  '  5'2 

555 

ON  'kE'f 

b  r  0  *  ‘J  B  2  G  n  0  *  r*  I  —  G 

p  "c  5 

ON  k'E'/ 

3  GGS'^jB  Do  notnipc 

^5" 

3  0  SUB  D 

1 5 c i a  V  t 

553 

PRINT 

559 

FDINT  " 

Od  t  €  G”  *1''^*  5t3t8 

553 

=r:nt 

:  1  -.T 


“  o  *  q  •  r  a  ' 


•a  n  •  p  r 
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56'  PRINT  "ENTER  UNTJERSPL  DATE  i DD  yvyy j  " ; 

562  OFF  ERROR 

55-)  STATUS  CRT.liNou‘ii^e 

56A  STATUS  CRT  . 0  ;  Nc"vc o i 

5b5  GO SUB 

5G6  0 1  dyr  sec  5  =  QATE '  0ATE5 '' T  T  LEGATE  '  >  '  Old  da’'e  in  sec'niijH 

567  IF  A$=""  THEN 

5GS  CONTROL  CRT  .  1  ;Ncuiine 

569  CONTROL  CRT  ..O  sNowcoi 

570  PRINT  0ATES( TINEDATE > 

57'  N  e  w  y  5  e  c  5  =  0 

572  GOTO  532 

5'^3  END  IF 

*3  ;  -1  N  T  F  0  L  C  F  T  1  ;  U  o  'aJ  i  1  e 

575  CONTPIOL  CPT.0;1 

B-R  ON  error  goto  EGO 

577  Ne',.iv'~5ec5=DATE'A?' 

575  IF  New^-i-secs  2  .I08B62912F  +  1  1  THEN  GOTO  5B0 
5''9  IF  Newyrsecs- 2  .  U325Z22AE+!  1  THEN  SOTO  560 
530  OFF  ERROR 

53'  DateS=A? 

592  Nc'i.vl  ir-e^Nowl  ine+  ' 

2  9c  CONTROL  C  R  T  .  1  !  o  w  i ;  n  e  +  I 

FRi  CON'RCL  CRT  70! 1 

535  frtn'  'EN'ER  ZULU  tine  ■' hh  an  55 ; 

556  OFF  error 


F  3C 


b  T  A  ”  U  S  CRT.’.!  M  o  line 
S A  T !  J  S  C  R  T  ,  0  :  N  o  i..j  C  0  i 
G  0  5  U  B  A  5  i.  *  n  r  3 

Oldt  ine3ec5  =  TI'«'E' TINE5(  YTMpn^Xc  M  1  =.;:„e  ,jhen  '  bd  RE'^URN  Loas  Gcisned 
IF  As="''  then 

IF  Newy- see  5=0  'HEN  GOTO  S'O 
New  t  1  ne (33  •  3  =  F  I  lygn.H TE "0  i  d'."* 5ec  5 +Ne'A''' n 53 c  5 
SE'  TOnFCATE  NeiA’t : -neda I e 
GC-J  6'0 
FNC  IF 

' '  C-  i.v  i  1  n  3  =  ^4  0  1  1  e  *  ' 

ICN'ROL  OR'  J  :No...,:  ine 
CONTROL  OF'.0:! 

ON  ERROR  SOTO  555 


50  '  ''ey,  t  1  ^3  ;  3  -  =  =  7  I MF  ■  AS  [  I  .  0  13  "  :  "  jAsr  A  .  H  j.j,  ■' 

E0O  IF  Ne^oli^eaeca  0  'HEN  GOTO  555 

203  I'  Ney  *  1  n3  ;  3  r  5  :E399.999  'nE'i  GC'O  5-55 

502  :F2  FFRCq 

2  05  1  ~  e  y  ' 5  e  c  5  =  0  H  E  *  i 

206  SET  TIheOATE  nid'-'"5ac5'’'Ne'.u*;7’e55C5 

20~  GOTO  6'0 

605  END  IF 

609  SET  'INECA''’f  Me'..) sec  ; ■’•’J3y r  1 ''e sec 5 
S'0  OU'R'JT  t'FOiOHFS  0E2  OI’-'FS  'S-: 


3  A  $  [  7  . 3  ]  '■ 


;_2AAr'  ^rr'aar. 


1 


-d 


■  d 
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TWEi‘\j  bOTn  Record 


G1  >  OFF  ERROR 

G'Z  IF  Oidfunct  ionS=''RECnRD 

h  1  0  0  0  ^  0  n  u 

G  U  I 

G'G  PRODUCE  ^LOG  C‘F  HARO— D I  "R  I  C^J0t^PAMR  ****************** 

b  ’  G  ! 

B17  01dfunc+iGnS=F!jnction$ 

61  8  Fijpi^t  ion$=  'LIbDISCGRAMS  " 

BIR  Li  st_Qrar*i5  ••  GRAPHICS  OFF 
GZ0  Ac$= "  " 

BZ1  IF  Ca t  uD  +  oda  +  eS= " '^ES "  THEN  GOTO  B-iB 
BZZ  ASSIGN  0GraroDath  TQ  ♦ 

6Z3  ON  ERROR  GOTO  F 1 1 e_er-r't.r  '  IP  NO  "  lONOGR AMS "  ^I‘-E,  IFEATP  OME 

BZ*i  assign  '^Gra^cath  TO  'lONOGRAMS'' 

BZ5  OFF  ERROR 

SZG  CONTROL  ?Gra(»'oat  h  ,  T  ;  4 1  S  1 -l  '  MOOES  EOF  MARKER  TO  END  ZF  PILE 

6Z7  ENTER  ?G'"a'*iD a t h  . 4  1  R  1  4  USING  "4D"  :  Jcat  tast 
GZ8  IF  Jc3tta3t=0  TAEN 

SZB  Jcat=0 

G30  IF  Func*  ion$='‘ RECORD"  THEN  GOTO  B33 

631  IF  Punct  innS="0!  SPLA>'"  then  GOTO  B33 

S3Z  PRINT  "THERE  ARE  NO  lONOGRAHS  RECORDED  ON  THE  HARD  DISC" 


633 

GataDtodate$="'''ES'‘ 

634 

return 

635 

END  IF 

636 

IF  J c a t * J c a t t a 3 t  THEN  GOTQ  543 

537 

Jcat  = Jaat  t  a; t 

5  33 

F OR  K  = 1  TO  J c a t 

633 

ON  ERROR  GOTO  543 

640 

EfJTER  3Gr'3<MD3*,  T. ,  1  f  1  43*(  K- 1  1  USING 

’39bf^'‘  :*it  le5 

5  1 

OdatSlK  ^  =  Tit lesr )  ,43] 

54Z 

N  E  X  T  K 

643 

OFF  EPROR 

644 

C  a  *  u  c  t  ■'  d  a  *  a  5  =  ' '''  E  S  " 

R  4P 

IP  P-jnc  ‘  :.3n5= 'REC'FD"  then  pETURN 

545 

TF  Func  r ; ' '■5=  '  D I  S PLA'-' ■’  THFfj  cc-'-.jpi'j 

047 

PF'IN'l’EP  IS  1 

543 

CIJTp'jT  -  BD  :  CHRS:  Z56  '■I.C-HRS (  ■'5  ;  '  r. 

549  D -1 

scia,v_l:3T:  ^RINT  USING  550:  Jca- 

650 

IHAGE  S'<  ,  'The  DISC  '3CNTAIN3  THE  POLL 

j U  i  N ‘T G  .  '  I  'G ^ 'm  r 

55! 

FOR  K  v  =  !  TO  Jcat-'Q+l 

55Z 

PRINT  USING  S53:0ca"S: 5*k.-5  :  ,Oca 

t  S  ^  ♦  K  -  -  i  :  .  G  C  f  *:  i  ■  6  ♦  V 

’ ,Oca  t 

$ ;  6  ♦  K  V  “  1  '  .  0  c  a  t  S :  S  *  K  >  : 

553 

image  5<  '  3A  ^  Z>'  ^ 

664 

rjE  <T  ^  y 

655 

PRINT  USING  'K ^1" ; "HARD  OOPV  ■/_N5 

0 

656 

A$=  '  '• 

567 

G  0  S  U  B  A  s  !■  f  0  r  a 

653 

IF  'JFC$>  A$[  '  ,  1  :  .  ■  "  "■'-'EN 

569 

STA’US  CR^  ,  :  Aaa 

560 

ZGNTRCL  ZF"'  .  1  :Aaa-l 

27 


GG1  PRINT  " 

SG2  RETURN 

BB3  END  IF 

GB4  PRINTER  IS  701 

BBS  °RINT  USINS  BBS  !B>iTEt!(  TIMEDATE  )  JIMESf  TIMEDATE  i 
BBS  IMAGE  3X  J 1 A  ,2K  ,3A  ,  "Z" 

S67  PRINT  USING  B50:Jcat 

BBS  FOR  TO  Jc3\»B'*‘^ 

BB 9  PRINT  USING  B70  : Oc a t $ <  G ♦K y -  B  '  a t  ?>  S *K y-'l  , Oc a t $ <  G ♦•x -  3  •  . Oc a t  5 (  B *K  v - 2 

>  ,Ocat$<  6»K'y-  1  i  ^0,:a  +  $<  G*Ky  ) 

G'’3  IMAGE  SX  ^BM  0A  ,2X 

G71  next  Ky 

S'2  Ac*="" 

B-3  PRINTER  IS  ■ 

G'^-l  RETURN 

B75  P 1 1  e_e'"roi"  :  OPR  ERROR 

B7R  assign  ^Granoath  TO  * 

S77  ON  ERROR  GOTO  679 

6"8  PURGE  '■  IONOGRAMS  “ 

B7g  ON  ERROR  GOTO  S31 

B50  CREATE  boat  •  IONOGRAMS “  .A  1 B U  , 400 

G81  ORF  ERROR 

BBZ  ASSIGN  laGramoath  TO  "lONGGRAMS" 

633  CONTROL  ©Grai^oa  t  h  . 7  !  A  1  6  I  A 

S3A  jcat=0 

BSE  OUTPUT  ‘§Gr3PnDa  t  h  .  A  )  6  1  A  USING  "AO'sJcat 

536  GOTO  5  Z  A 

537  Return:  RETURN  1  Return  fror’  request  tor  list  of  fi>ed"di5C  lonnc-rans 

593  I 

539  I  •■»«•*♦♦♦♦♦♦♦♦♦  •  PURGE  IONOGRAMS  FROM  "IONOGRAMS"  FILE  ♦♦♦♦♦♦♦♦♦♦■»♦♦♦**■•»♦♦ 
890  ' 

S  9 1  P  u  r  c  s  :  ' 


5  92 

OPR 

BS3 

CONTROL  OR 7.12:1 

'  KEY  labels  off 

GRAPHICS  OFF 

S95 

OU7Fl.iT  WFOiCHRS: 

255 ''!fCHP$.;  7q  .  1  CLEAR  SCREEN 

2  HP 

PRINT 

'  RE0UES7  RERMISSION  70  RUFGE  I'ITjOGRamf 

P  P  T 

AS=  "  " 

595 

PRINT  USING 

"  35A  ..  A"  ;  "PlJFGE  ALL  IONOGRAMS  FROM  DISC  ^  N  i  " 

559 

INPUT  AS 

■"OO 

PRINT  USING 

■■2X  .30A"  :UPC$1  AS[  1  :  1  ]  1 

“0! 

IF  U P C S ( A S  1 

then  goto  723 

-,-nn 
•i.’  - 

7e,-  $  =  CHRS<  1  3 

1  I'i 'RiJPGE  all  lOriOGRAMS  RROM  DISC  ''  -  V\N  ; "  iChPS'  1  2S  ' 

“03 

1  CAPS '131  ' 

AND  CHF$:125’  7IJRN  INVERSE  and  BLINKING  ON  AMD  SRP.RESP. 

73A 

printer  15  1 

“05 

PRINT  USING 

'39A  :t"  :Te^,S 

“3S 

A$="  " 

707 

INPUT  AS 

PRINT  USING 

"  3 X  j  30A  "  :  A'5 1  1  1  ] 

“09 

IF  UFC$<  AS  ' 

" Y "  THEN  U  0  T  0  7  2  J 

710 

28 


I  IF  ^iO  •' IONOGRAMS"  file,  set 


71  1  ON  ERROR  GOTO  Bsd  or_^no  file 

1 

71Z  ASSIGN  OGf'ai’'Dath  TO  ♦ 

713  ASSIGN  ^Granoath  TO  “lONOGRAMS" 

714  ENTER  ®Gr  anoa  t  h  ,  4  1  b  1  4  USING  "40";.. Teat 

715  OFF  ERROR 

7 1 S  Jeat  =0 

717  OUTPUT  '?Granpa  t  A  .  4  !  S  1  4  USING  ''4D";Jc3t 

718  CatuDtodata$="NO“ 

719  OUTPUT  KBD:CHR$(  255  13<CHP$(  75  ) :  i  CLEAR  SCREEN 

720  PRINT  "ALL  lONOGRANS  HAUE  BEEN  PURGED  FROM  " " lONOGRAMS FILE." 

721  MAT  OcatS=  ("") 

722  GOTO  Ti 

723  OUTPUT  kSD  ;  CHR$(  255 '.'CvCHRST  75  ) ;  '  CLEAR  SCREEN 

724  GOTO  74 

725  I 

728  Bad_c.r_no_f  1  la  :  PRINT  "PROBLEM  WITH  "  "  lONOGRAMS  "  "  FILE" 

727  ON  ERROR  GOTO  728 

728  PURGE  "lONOGPAMS" 

729  CREATE  BOAT  " lONOGRAMS : HP7g43 j  402 , 0 ",  4 1 B 1 4  . 400 

730  ASSIGN  ®6rampath  TO  "IGNOGRAMS" 

”’31  OUTPUT  '3Grar"o  a  t  n  .  4 1  5  1  4  USING  "4D"<0  '  SETT  JCAT  =  0 

732  OFF  EPPOR 

733  RETURN 

734  I 

735  Plot_arid:  1  ♦♦♦♦♦♦♦*♦♦«♦**»  PLOT  GRID 

738  I 

737  I  If  the  lonogran  grid  pattern  is  stored  in  array  GR  IDARRA'/t  1 2450 ,GL 

739  1  it  into  the  ert  display.  If  it  isn’t  there,  get  it  ‘ren  the  nard  p 

738  '  If  11  isn’t  on  the  disc,  generate  it. 

740  I 

741  OUTPUT  KEDiCHPSl 255 'iCHRSTTE  ):  1  CLEAR  SCREEN 

742  GINIT 

743  GCLEAP 

744  GRAPHICS  ON 

745  SHOW  1  ,512,1  ,390 

748  K : eno= 1 50 
747  Vzero  =  ”’0 

74,5  IF  Gr  1  dready3=  " ''ES  "  THEN  GOTO  367 

749  ASSIGN  'SGridpath  TO  ♦ 

750  ON  EPPOR  GOTO  7E5 

751  ASSIGN  laGrideath  th  ' GRAMGR ID : HP7q42  . 1  402 " 

752  ENTER  OGr  1  apa  t  h  ;  S'"  1  dar-'ay  (  ♦  < 

■'53  OFF  ERROR 

754  GOTO  387 

755  OFF  ERROR 

758  PLOT  X  zero.  Year o 

757  IPLOT  0  ,-g 

758  IPLOT  0^9 

759  FOP  K=i  TO  14 

760  IPLOT  10,0 
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7B1 

I  PLOT 

0,-5 

7G2 

IPLOT 

0,5 

7E3 

IPLOT 

10,0 

7B4 

IPLOT 

0  ,-9 

7B5 

IPLOT 

0,9 

7B6 

NEXT  f 

7B7 

IPLOT 

1  0  ,0 

■’B3 

IPLOT 

-10,0 

7B9 

FOR  K  = 

=  1  TO  5 

770 

IPLOT 

0  ,20 

771 

IPLOT 

B  ,0 

-7-^-1 
'  (  L. 

IPLOT 

-6  ,0 

7~3 

IPLOT 

0  ,20 

"’"i 

IPLOT 

10,0 

7-’B 

IPLOT 

-10  ,0 

776 

NEXT  K 

777 

IPLOT 

0,11 

778 

IPLOT 

0,-10 

778 

FOR  K  = 

=  1  TO  14 

730 

IPLOT 

-10,0 

781 

IPLOT 

0  ,5 

7s: 

IPLOT 

0,-5 

733 

IPLOT 

-10,0 

734 

IPLOT 

0,9 

735 

IPLOT 

2  ,-9 

"36 

NE'<T  K 

•  5  *7 

IPLO" 

2,-1 

733 

I P  L  0  T 

-10,0 

789 

IPLOT 

10  ,0 

-30 

F  0  R  K  = 

'1  TO  5 

-a  1 

IPLOT 

0  .-20 

"9Z 

IPLOT 

-6.0 

733 

i°lot 

•5  0 

"94 

.  FLO' I" 

0  .-20 

■’95 

IPLOT 

-10,0 

’PLOT 

10,0 

'r'Q? 

NE'^"  f'' 

T  9  S 

PENiJP 

7Qq 

plot  y 

-  e  r  .D  ,  /  r  2 

300 

PEN  1 

30' 

T  3 1  Z  E 

4 . 0  ,  .  6 

302 

FOR  ^  = 

1  TO  15 

503 

'^C'/'E  < 

zer  o*  ‘  K'  - 

304 

IF  5 

TPEN  :3G 

305 

"'O'vE  y 

;  2  r  0  + '. 

30G 

3  £  =  'V  P  L  £ '  ■  ♦  K  ' 

30? 

lPBEL 

P£ [  1  ,  I  : 

303 

MO'.'E 

^  «  r  0  -f  ‘  k‘  - 

309 

LPBEL 

n5[: .:  ] 

510 

30. TO  3 

1  2 

5^ 


861  PURGE  "GRAMGRID" 

3G2  OFP  ERROR 

SG3  CREATE  BOAT  ''GRAriGRID:HP7942  J  402  ,3  '  J  .G' ZOO 
36 A  OFF  ERROR 

365  ASSIGN  OGridpath  TQ  "GRANGRIO" 

366  OUI’PUT  §Gr  1  doa  t  h  !  Gr  1  darrav (  ♦  ) 

367  ASSIGN  'rGridoath  TO  » 

963  GLOAD  Gridarray'*' 

363  ON  KEv  Z  GOSUB  Oo_nothing 

373  CONTROL  CRT.'ZiZ  '  Key  labais  disolaved  at  all  tii^ea 
■37  I  Gr  1  darr-ay  $=  "  V6 5  " 

872  MOVE  Vzero.Yzero 
SI’S  GRAPHICS  ON 
5  ~  4  8  E  T  ij  P  N 

875  i 

376  iD'Z_not8ir:g:  RETURN  i  RENOUES  ^ijNCTION  OF  USER-DEFINEO  KEYS  LHILE 

37'’  I 

373  I  ♦■»•*•*♦♦♦♦»*•■»♦■*  SUBROUTINE  FOP  CHANGING  PATH  LABELS  ■*•»*•»*■♦*•»♦♦♦•»♦♦ 
3'’ 9  i 

380  PatAiabais:  ON  ERROR  GOTO  386 

38’  ASSIGN  OPath  TQ  ♦ 

332  ASSIGN  SPath  TQ  "PATHDATA" 

553  0F8  error 

334  ENTER  !?FatA!Patn4'*i.Lat’*',Ld'^G'*’.Tdelav''*),OD59c$(».’ 


355 

RETURN 

336 

CREATE 

BOAT  "FATHCATA"  . 

1  ,5000 

p  p  7 

T;  P  P  E  ”  F  C  P 

353 

?  a  *.  n$ ; 

'=' ISABELA  1  PR  ) 

TO  NRL" 

58  9 

Rath$; 3 

;='C0RINNE  ( !J7  ) 

TO  NFL" 

3S0 

°3thS( 3 

’='DP;'lER  '  UA '■ 

TO  NFL" 

p  p  * 

Lat ' ’  ’= 

0 

992 

^pngl 1  , 

=  0 

333 

Lat .  2  = 

0 

034 

^  p  n  Q  ■  2 

=  0 

P  GC 

u3t . 3  = 

0 

SS6 

L  -Z^'Z'-  1 

=  0 

5  S" 

""  1  ■?  V  s 

’  '  ,  =  1 

■5  53 

’  2  '  =  4  0 

559 

J  e  1 1?  V 

2 , •  -=0 

900 

^  <5  i  (3 ' 

2.2  ^=0 

30  I 

^  d  e  1  ■?  V  ' 

3,1  ■  =  I 

502 

Tzala 

3 ^=S0 

503 

Oc  5eg$ ’ 

1  ="  0  25  40 

do  ' 

'  Z  r  ®  G  5  ' 

^  ='05  '0  ~ - 

=0" 

305 

CdPegJ. 

3  '='00  '5  30 

45" 

906 

ASSIGN 

0Pa*-  'C  'RA^MCA 

T  A  ' 

50^ 

Curpij’’ 

?  F  a  t  A  :  P  a  t  A  5 '  ♦  ’ 

B*  ’  •  .i_'r'ng'  •  <  .Tdelav'  ♦  ■'  .'CcaegS'  ♦ 

908 

PRINT  ' 

PAzg0;9,Ta  pT^p  97 

IJP5D  yl’'H  D'RTA" 

909 

PR 

I  NT  '  'pENG'’’H  'R  C 

c  saoS '  I  '  =  ' ; ^EM ' Co  aegJ '  ’  ’  ' 

9’  0 

pp 

I  NT  "LENGTH  OF  G 

c  sec 5 1  2  1  =  "  :  lEN i  Oo  sec?  ■  2  ■  '■ 

32 


91  1 

PRINT  “LENGTH  OF  GD5egS(3)= 

■'  -.lEN' 

Oo  3eg5: 3  ) 

) 

91  Z 

PRINT  0D5eg$( ♦ > 

913 

ASSIGN  :3path  TQ 

3!  -1 

RETURN 

915 

' 

916 

Changeoat  ns  :  1 

917 

OUTPUT  KBCiC-PRS 

‘  255  ).jChR$!  75  :  1 

CLEAR 

SCR 

EEN 

918 

OFF  TINE 

919 

CONTROL  CRTJZ; 

1  1  h'E/  LABELS 

OFF 

92  0 

IF  P a t  h $ (  1  )  =  “ 

AND  Path$i  2  )=“  ■'  AND  Pat 

h  3  3 

;='■■■ 

THEM  GC5UB  P? 

921 

PRINT  ‘'Present 

oatb  descnotions 

922 

U$=CHR$( 1 32  1 

I  UNDERLINE 

923 

N$=CHP$( 123) 

t  STOP  iJNDEPLIN 

IMG 

92i 

PRINT 

LTI 
t  J 

m 

PRINT  USING  “36 

K  . K “ :  ' T 1  me  Delay' 

926 

PRINT  USING  927 

;U«S''^3th''iNS  UJSi 

■' Name  ' 

CN$  , 

'J  $  .3  "  m 

in''Oij$  ,ijSi  '■  se 

Ders 

ting  Segment  5 “iN$ 

927 

IMAGE  1 X  ,3X  ,K 

.  1  9X  .K  .-iX  .K  .5x  .K 

929 

PRINT 

92  9 

FOR  K=1  TQ  5 

930 

PRINT  USING  931 

:  K  ,  P 3 1  hS  (  K  ;  ,  T de  1  ay  ■'  K  ,  1  ■ 

.  T  de 

1  a  y :  K 

,2 i ,0D3eg3: K  • 

931 

IMAGE  3D,.1X,2SA 

. 1 X ,2D ,5x ,20 ,6X  ,2 

0A 

932 

NE'XT  K 

953 

PRINT 

93-1 

PRINT  “To  onang 

e  a  oath  descnot 

ion,  E 

NTEP 

i  n 

or  3  .  ' 

335 

PRINT 

936 

PRINT  “PATH  TO 

BE  CHANGED:  '' : 

937 

A$  =  RPTi(  '  { “  ,200 

) 

938 

ON  KSO  GOTO  953 

539 

OFf  KEY 

9-10 

CN  i-iE'^  0  GO  SUB 

Do  notnina 

9-11 

ON  h,  E  Y  !  G 0  3 iJ 8 

Do  '"•othiHG 

9i2 

ON  KEY  2  GO SUB 

Do_^-ot  nirg 

9-13 

ON  KEY  3  GO SUB 

Do  0  t  i  n Q 

94i 

ON  KEY  -1  sosue 

Co_not  n i ng 

9-i5 

ON  KEv  5  SO 3 Lb 

'2''0_ro  thing 

9-ib 

ON  f- E  '  6  LABEL 

''  OUIT',1  GOTO  10 

2  1 

9-i~ 

HN  KPY  ^  STiqilR 

Oo_no*.  ni  ng 

9*13 

ON  K£V  5  GO SUB 

Do_r’othir.g 

9*19 

Qfj  KEY  9  SOSUB 

Bo  nothir’Q 

950 

CONTROL  CRT.  12: 

Z  *  KE  *'  L 

B  E  L  3 

CM 

951 

GOTO  951 

99Z 

953 

ti  I  =  K  E  C'  2 

95*1 

CONTROL  CRT,  12: 

»  ■  ».  ;  C  v  1 

ABELS 

OFF 

955 

OFF  KEY 

956 

IF  A$=CHR$:'  255  > 

.iCHP$:B9'  T'HEN  SC 

TO  93" 

357 

PRINT  A$ 

953 

ON  ERPOP  553 

959 

IF  LEN^AS'=i  Hi'io  ')IjM' a? ■ -13  AMD 

NUM' A$ 

'•  EZ 

'^HEN 

ECiT’Z  5GZ 

960 

OFF  ERROR 

961 

GOTO  74 

962 

1 

963 

OFF  ERROR 

96-1 

Pth  =  itAL(  A« 

965 

PRINT 

966 

PPIMT  USING  "K  , 

961’ 

A$=P3 1  n$( P  t  h  > 

963 

input  as 

969 

A$=AsaRPT$(  "  '',25 

970 

NewD3tr,$  =  A$[  1  .28  1 

97  I 

PRINT  USING 

972 

PRINT  USING  '•K.4" 

q-7-? 

=RINT  USING 

9'’-i 

PRINT  USING  '2  3A'' 

=  PIMT 

3*^5 

PRINT  USING  "P^Dj 

g?" 

PPirjT  USING  "K.  =  " 

A$=ppT$;  '■  ( ••  ^238  ; 

973 

INPijT  AS 

930 

IF  A$  =  RPT$'  "  <; "  ,201 

38  1 

Newimi  n=T  del  a 

932 

GOTO  939 

933 

END  IF 

984 

CN  ERROR  GOTO  979 

955 

IF  UAL. AS  i-G  OR  U 

936 

OFF  ERROR 

20- 

w  '.j  ■ 

Newm 1 n=UAL  AS  1 

358 

T de 1  ay • p t A  ,  1  .  =vAL 

939 

PRINT  USlNj  ‘'K.#" 

590 

PPINT  USING  ■■K,4" 

99  ’ 

PPINT  ^SING  "K,4" 

3  3  Z 

ppirr  usi'iG  "D.s’' 

RPIN^  USING  'K'.S" 

39-1 

—  5  —  ?  1  5  '  ’  '  ,  4,  Z  0  ' 

995 

I'iFU'  AS 

996 

-a  4^=Rp-5,  '  /  ■■  23; 

IN  ^RRCR  30"0  995 

I "  “L  '7.5  ■■  0  07  '■'! 

’  27  0 

Tdeiav'  Ptn  ,2  '='.'al 

'  C  w  ' 

=  p  I rjT  u 9 1 NG  "  y  .2  ■' 

1  202 

°r:nt  using  'k.'"' 

■  202 

'ieiv/  =  e':  =  "dela'v  R  *  A 

22-i 

-=  IN" 

1  005 

=  P  INR  USING  "■  .0  : 

1  206 

A$  =  Cc=egS: 

•  00" 

input  as 

1  208 

Newoo  :egS  =  f-'  S  [  1  2  0 

•  •>  I-'  Q 

•  t' t'  2? 

ASSIGN  ?  R  3  *  n  "0  ♦ 

’  2'  0 

ASSIGN  rPatn  "2  'R' 

i'Jew  name  *^3'“  03*n  ' 


I  CHPSOi  IS  A  3Al>:' 
i  CHP$(3)  IS  A  BACK 


New  time  dels'/  tor 


CHR$;8'=  BACKSPACE 


4$  ,  ca  T^rri  sore  935 


Mew  oceratira  jeemen*;; 


34 


'I  .  .  tfcilabie  to  DiiC  doee  ooi 
koin-.it  hilly  legibla  leptoductioa 


101 

ENTER  'x\ 

a  t  h  :  P  a 

t  h  $  i  »  ' 

.  La  t ;  ♦  .'  U-'aPQ';  *  ■  .  Tde  1  a  /  * 

101 
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